inherited fcrTituloInclui: TfcrTituloInclui
  Left = 0
  Top = 19
  Width = 796
  Height = 567
  Font.Height = -13
  OldCreateOrder = True
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Label3: TLabel [0]
    Left = 7
    Top = 56
    Width = 109
    Height = 16
    Caption = 'N'#250'mero do T'#237'tulo :'
  end
  object Label4: TLabel [1]
    Left = 149
    Top = 56
    Width = 91
    Height = 16
    Caption = 'Data Emiss'#227'o :'
  end
  object Label5: TLabel [2]
    Left = 283
    Top = 56
    Width = 109
    Height = 16
    Caption = 'Data Vencimento :'
  end
  object Label7: TLabel [3]
    Left = 419
    Top = 56
    Width = 129
    Height = 16
    Caption = 'Centro de Resultado :'
  end
  object Label9: TLabel [4]
    Left = 7
    Top = 139
    Width = 88
    Height = 16
    Caption = 'C'#243'digo Cliente'
  end
  object Label10: TLabel [5]
    Left = 221
    Top = 139
    Width = 47
    Height = 16
    Caption = 'Cliente :'
  end
  object Label11: TLabel [6]
    Left = 7
    Top = 183
    Width = 105
    Height = 16
    Caption = 'Valor '#224' Receber :'
  end
  object Label8: TLabel [7]
    Left = 363
    Top = 183
    Width = 148
    Height = 16
    Caption = 'Forma de Recebimento :'
  end
  object Label12: TLabel [8]
    Left = 194
    Top = 183
    Width = 70
    Height = 16
    Caption = 'N. Parcelas'
  end
  object Label13: TLabel [9]
    Left = 271
    Top = 183
    Width = 67
    Height = 16
    Caption = 'Entrada R$'
  end
  object Label14: TLabel [10]
    Left = 561
    Top = 183
    Width = 83
    Height = 16
    Caption = 'Caixa / Banco'
  end
  object Label15: TLabel [11]
    Left = 14
    Top = 261
    Width = 59
    Height = 16
    Caption = 'Hist'#243'rico :'
  end
  object Label16: TLabel [12]
    Left = 8
    Top = 451
    Width = 100
    Height = 16
    Caption = 'Data do Sistema'
  end
  object Label17: TLabel [13]
    Left = 393
    Top = 451
    Width = 47
    Height = 16
    Caption = 'Usu'#225'rio'
  end
  object Label6: TLabel [14]
    Left = 6
    Top = 99
    Width = 164
    Height = 16
    Caption = 'C'#243'd. Reduzido C. Receitas:'
  end
  object Label18: TLabel [15]
    Left = 221
    Top = 99
    Width = 92
    Height = 16
    Caption = 'Conta Receitas'
  end
  object Label19: TLabel [16]
    Left = 108
    Top = 183
    Width = 87
    Height = 16
    Caption = 'Desc./Reemb.'
  end
  object Label20: TLabel [17]
    Left = 9
    Top = 233
    Width = 85
    Height = 16
    Caption = 'N. Documento'
  end
  object Label21: TLabel [18]
    Left = 242
    Top = 234
    Width = 113
    Height = 16
    Caption = 'Data Recebimento'
  end
  object Label22: TLabel [19]
    Left = 514
    Top = 234
    Width = 109
    Height = 16
    Caption = 'Data Consolidado'
  end
  inherited MMJPanel1: TMMJPanel
    Top = 486
    Width = 788
    Font.Height = -13
    ParentFont = False
    inherited btnIncluir: TBitBtn [0]
      Left = 176
    end
    inherited btnGravar: TBitBtn [1]
      Left = 176
      Width = 107
      Font.Height = -13
      ParentFont = False
    end
    inherited btnCancelar: TBitBtn
      Left = 404
      Width = 106
    end
    inherited btnExcluir: TBitBtn
      Left = 404
      Width = 107
      Hint = 'Exluir todas as Parcelas Pendente do T'#237'tulo acima'
      Font.Height = -13
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    inherited btnProcurar: TBitBtn
      Left = 63
      Width = 107
      Font.Height = -13
      ParentFont = False
      OnClick = btnProcurarClick
    end
    inherited btnSair: TBitBtn
      Left = 519
      Width = 107
      Font.Height = -13
      ParentFont = False
    end
    object BitBtn5: TBitBtn
      Left = 290
      Top = 7
      Width = 107
      Height = 40
      Hint = 'Exclui somente a parcela Selecionada'
      Caption = 'Excluir Parcela'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn5Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777777700000000007777770FFFFFFFF07777770FFFFFFF
        F077771F0F888888F077711F0F85BFB8F0777711F11BFBF8F077777151788888
        F077777511FFFFFFF07775111F1FFF00007771570FF1FF0F077777770FFFFF00
        7777777700000007777777777777777777777777777777777777}
    end
  end
  inherited MMJPanel2: TMMJPanel
    Width = 788
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -29
    Font.Name = 'Cooper Blk BT'
    ParentFont = False
    inherited Label1: TLabel
      Left = 239
      Top = -55
      Width = 211
      Height = 33
      Caption = 'Lan'#231'ar Receitas'
      ParentFont = True
    end
    inherited Label2: TLabel
      Left = 243
      Top = -77
      Width = 287
      Height = 44
      Caption = 'Lan'#231'ar Receitas'
      Font.Name = 'Cooper Black'
    end
    object JvLabel1: TJvLabel
      Left = 1
      Top = 1
      Width = 786
      Height = 52
      Align = alClient
      Alignment = taCenter
      AutoSize = False
      Caption = 'Lan'#231'ar Receitas'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -37
      Font.Name = 'Cooper Blk BT'
      Font.Style = []
      ParentFont = False
      ShadowColor = clNavy
      ShadowSize = 4
      Transparent = True
      AutoOpenURL = False
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -37
      HotTrackFont.Name = 'Cooper Blk BT'
      HotTrackFont.Style = []
    end
  end
  object DBEdit1: TDBEdit [22]
    Left = 7
    Top = 72
    Width = 115
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'TITULO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object DBEdit2: TDBEdit [23]
    Left = 149
    Top = 72
    Width = 126
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'EMISSAO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 3
    OnKeyPress = FormKeyPress
  end
  object DBEdit3: TDBEdit [24]
    Left = 283
    Top = 72
    Width = 126
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'DATAVENCIMENTO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  object DBLookupComboBox1: TDBLookupComboBox [25]
    Left = 417
    Top = 72
    Width = 369
    Height = 24
    Ctl3D = True
    DataField = 'CODALMOXARIFADO'
    DataSource = DtSrc
    KeyField = 'CODIGO'
    ListField = 'NOME'
    ListSource = ds_rateio
    ParentCtl3D = False
    PopupMenu = PopupMenu1
    TabOrder = 5
    OnKeyPress = FormKeyPress
  end
  object dbeCliente: TDBEdit [26]
    Left = 7
    Top = 155
    Width = 169
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'CODCLIENTE'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 7
    OnExit = dbeClienteExit
    OnKeyPress = FormKeyPress
  end
  object DBEdit5: TDBEdit [27]
    Left = 221
    Top = 155
    Width = 563
    Height = 24
    TabStop = False
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = clInfoBk
    DataField = 'NOMECLIENTE'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 9
    OnKeyPress = FormKeyPress
  end
  object DBEdit8: TDBEdit [28]
    Left = 7
    Top = 199
    Width = 98
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'VALORTITULO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 10
    OnKeyPress = FormKeyPress
  end
  object DBEdit9: TDBEdit [29]
    Left = 194
    Top = 199
    Width = 71
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'PARCELAS'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 12
    OnKeyPress = FormKeyPress
  end
  object DBEdit10: TDBEdit [30]
    Left = 271
    Top = 199
    Width = 90
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'VALORRECEBIDO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 13
    OnExit = DBEdit10Exit
    OnKeyPress = FormKeyPress
  end
  object DBLookupComboBox3: TDBLookupComboBox [31]
    Left = 560
    Top = 199
    Width = 225
    Height = 24
    Ctl3D = True
    DataField = 'CAIXA'
    DataSource = DtSrc
    KeyField = 'CODIGO'
    ListField = 'NOME'
    ListSource = d_3_caixa_banco
    ParentCtl3D = False
    PopupMenu = PopupMenu1
    TabOrder = 15
    OnKeyPress = FormKeyPress
  end
  object dxButton2: TdxButton [32]
    Left = 649
    Top = 263
    Width = 134
    Height = 39
    About = 'Design eXperience. '#169' 2002 M. Hoffmann'
    PopupMenu = PopupMenu1
    Version = '1.0.2e'
    OnClick = dxButton2Click
    Caption = 'Relaciona Docs.'
    Glyph.Data = {
      36080000424D3608000000000000360400002800000020000000200000000100
      0800000000000004000000000000000000000001000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
      12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
      780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
      DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
      5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
      FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
      D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
      5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
      FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
      D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
      3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
      CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
      460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
      0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
      6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
      000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
      0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
      6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
      0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
      00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
      6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
      0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
      00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
      6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
      4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
      3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
      CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
      D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
      5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
      FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
      D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF00070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070707070707070707070707070707070707070707070707070707070707
      0707070700000707070707070707070707070707070707070707070707070707
      0707070025190007070707070707070707070707070707070707070707070707
      07070021B7251900070707070707070707070707070707070707070707070707
      07000F2421B72519000707070707070707070707070707070707070707070707
      000F0F0F2421B725190007070707070707070707070707070707070707070700
      0F0F240F0F2421B725190007070707070707070707000000000707070707000F
      0F240F240F0F2421B72519000707070707070707070000000007070707000F0F
      21B7240F240F0F2421B7251900070707070700000000000000070707000F0F21
      B721B7240F000F0F2421B7252100000000003D3D3D000000000707000F0F21B7
      21B721B7240000000F24210000003D3D3D3D4A4A3D000000000707000F21B721
      B721B721B724003D0000003D3D3D4A4A4A4A4A4A3D0000000007070700B721B7
      21B721B721B7000B00574A4A4A4A4A4A4A4A4A4A3D000000000707070700B721
      2421B721B721B7000B0000000000574A4A4A4A4A3D00000000070707070700B7
      212421B721B7003D000B3D00000F003B4A4A4A4A000000000007070707070700
      B7242421B721004A3D000B3D0000003D4A4A4A00070000000007070707070707
      00B7242421B721004A3D000B3D00003D3D4A0021000707070707070707070707
      0700B7242421B721004A3D000B3D00003D0021B7210007070707070707071207
      070700B7242421B725004A3D00533D0000212121B72100070707070707126612
      07070700B7242421B721004A3D00533D00002121210007070707070712666666
      1207070700B7242421B707000000000B3D000021000707070707071266071207
      661207070700B7212407B721072107000B3D0000070707070707070712071207
      66120707070700B7072407B721072107000B0000000707070707070707126666
      1207070707070700B7072407B721072107000B00F10007070707070712666612
      070707070707070700B7072107B72107000700F1F10007070707071266071207
      12070707070707070700B7072107070007070700000007070707071266071207
      6612070707070707070700B70707000707070707070707070707070712666666
      1207070707070707070707000700070707070707070707070707070707126612
      0707070707070707070707070007070707070707070707070707070707071207
      0707070707070707070707070707070707070707070707070707}
    TabOrder = 18
  end
  object DBMemo1: TDBMemo [33]
    Left = 80
    Top = 264
    Width = 562
    Height = 34
    DataField = 'HISTORICO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 17
  end
  object DBGrid1: TDBGrid [34]
    Left = 8
    Top = 305
    Width = 735
    Height = 143
    TabStop = False
    Color = clInfoBk
    DataSource = DataSource1
    PopupMenu = PopupMenu1
    TabOrder = 19
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'TITULO'
        Title.Caption = 'T'#237'tulo'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EMISSAO'
        Title.Caption = 'Emiss'#227'o'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATAVENCIMENTO'
        Title.Caption = 'Vencimento'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATARECEBIMENTO'
        Title.Caption = 'Recebimento'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STATUS'
        Title.Caption = 'Situa'#231#227'o'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VIA'
        Title.Caption = 'Via'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PARCELAS'
        Title.Caption = 'Parcelas'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALORTITULO'
        Title.Caption = 'Valor'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALORREC'
        Title.Caption = 'Pendente'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALORRECEBIDO'
        Title.Caption = 'Recebido'
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn [35]
    Left = 179
    Top = 151
    Width = 38
    Height = 30
    Caption = 'F 6'
    PopupMenu = PopupMenu1
    TabOrder = 20
    TabStop = False
    OnClick = BitBtn1Click
  end
  object BitBtn12: TBitBtn [36]
    Left = 180
    Top = 111
    Width = 37
    Height = 31
    Caption = 'F 5'
    PopupMenu = PopupMenu1
    TabOrder = 21
    TabStop = False
    OnClick = BitBtn12Click
  end
  object edtcodred: TEdit [37]
    Left = 6
    Top = 115
    Width = 171
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    PopupMenu = PopupMenu1
    TabOrder = 6
    OnExit = edtcodredExit
    OnKeyPress = FormKeyPress
  end
  object edtconta: TEdit [38]
    Left = 220
    Top = 115
    Width = 564
    Height = 24
    TabStop = False
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = clInfoBk
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 22
  end
  object DBEdit4: TDBEdit [39]
    Left = 7
    Top = 155
    Width = 169
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'RA'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 8
    Visible = False
    OnExit = dbeClienteExit
    OnKeyPress = FormKeyPress
  end
  object DBEdit6: TDBEdit [40]
    Left = 109
    Top = 199
    Width = 82
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'OUTRO_CREDITO'
    DataSource = DtSrc
    PopupMenu = PopupMenu1
    TabOrder = 11
    OnKeyPress = FormKeyPress
  end
  object ComboBox1: TComboBox [41]
    Left = 362
    Top = 199
    Width = 196
    Height = 24
    ItemHeight = 16
    TabOrder = 14
    OnKeyPress = FormKeyPress
  end
  object DBEdit7: TDBEdit [42]
    Left = 109
    Top = 231
    Width = 129
    Height = 24
    DataField = 'N_DOCUMENTO'
    DataSource = DtSrc
    TabOrder = 16
    OnKeyPress = FormKeyPress
  end
  object DBEdit11: TDBEdit [43]
    Left = 363
    Top = 232
    Width = 115
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'DATARECEBIMENTO'
    DataSource = DtSrc
    TabOrder = 23
    OnKeyPress = FormKeyPress
  end
  object DBEdit12: TDBEdit [44]
    Left = 627
    Top = 232
    Width = 126
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    DataField = 'DATACONSOLIDA'
    DataSource = DtSrc
    TabOrder = 24
    OnKeyPress = FormKeyPress
  end
  object BitBtn2: TBitBtn [45]
    Left = 754
    Top = 227
    Width = 31
    Height = 30
    PopupMenu = PopupMenu1
    TabOrder = 25
    TabStop = False
    OnClick = BitBtn2Click
    Glyph.Data = {
      1E070000424D1E070000000000003600000028000000160000001A0000000100
      180000000000E806000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C000000000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0
      C0C0C0C0C0C0C0C000000000FF00007F00007F00007F0000007F7F7F7F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C00000FF00007F0000000000007F7F7F7F7F7F7F7F7F
      7F7F7FC0C0C0C0C0C0C0C0C000000000FF00007F00007F00007F000000000000
      7F7F7F7F7F7F7F7F7F7F7F7FC0C0C00000FF00007F00007F0000000000007F7F
      7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C000000000FF00007F00007F00007F0000
      7F0000000000007F7F7F7F7F7F7F7F7F0000FF00007F00007F00007F00007F00
      00000000007F7F7F7F7F7FC0C0C0C0C0C0C0C0C000000000FF0000FF00007F00
      007F00007F00007F0000000000007F7F7F0000FF00007F00007F00007F00007F
      00007F00007F000000000000C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C00000FF
      00007F00007F00007F00007F00007F00000000000000007F00007F00007F0000
      7F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C00000FF0000FF00007F00007F00007F00007F00007F00007F00007F00007F00
      007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000FF0000FF00007F00007F00007F00007F00007F00007F
      00007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F0000
      7F00007F00007F00007F00007F0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F00
      007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF
      00007F00007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C00000FF00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F0000
      7F00007F0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000FF0000FF00
      007F00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000007F7F7F
      0000FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C00000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F0000007F7F
      7FC0C0C0C0C0C00000FF0000FF00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F00007F00
      00007F7F7FC0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F
      0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F0000
      7F00007F0000000000007F7F7FC0C0C00000C0C0C00000FF0000FF0000FF0000
      7F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF00
      00FF00007F00007F00007F000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C000
      00FF0000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00000FF0000FF00007F00007FC0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000}
  end
  object BitBtn3: TBitBtn [46]
    Left = 480
    Top = 227
    Width = 31
    Height = 30
    PopupMenu = PopupMenu1
    TabOrder = 26
    TabStop = False
    OnClick = BitBtn3Click
    Glyph.Data = {
      1E070000424D1E070000000000003600000028000000160000001A0000000100
      180000000000E806000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C000000000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0
      C0C0C0C0C0C0C0C000000000FF00007F00007F00007F0000007F7F7F7F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C00000FF00007F0000000000007F7F7F7F7F7F7F7F7F
      7F7F7FC0C0C0C0C0C0C0C0C000000000FF00007F00007F00007F000000000000
      7F7F7F7F7F7F7F7F7F7F7F7FC0C0C00000FF00007F00007F0000000000007F7F
      7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C000000000FF00007F00007F00007F0000
      7F0000000000007F7F7F7F7F7F7F7F7F0000FF00007F00007F00007F00007F00
      00000000007F7F7F7F7F7FC0C0C0C0C0C0C0C0C000000000FF0000FF00007F00
      007F00007F00007F0000000000007F7F7F0000FF00007F00007F00007F00007F
      00007F00007F000000000000C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C00000FF
      00007F00007F00007F00007F00007F00000000000000007F00007F00007F0000
      7F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C00000FF0000FF00007F00007F00007F00007F00007F00007F00007F00007F00
      007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000FF0000FF00007F00007F00007F00007F00007F00007F
      00007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F0000
      7F00007F00007F00007F00007F0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F00
      007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF
      00007F00007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C00000FF00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F0000
      7F00007F0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000FF0000FF00
      007F00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000007F7F7F
      0000FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C00000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F0000007F7F
      7FC0C0C0C0C0C00000FF0000FF00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F00007F00
      00007F7F7FC0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F
      0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F0000
      7F00007F0000000000007F7F7FC0C0C00000C0C0C00000FF0000FF0000FF0000
      7F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF00
      00FF00007F00007F00007F000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C000
      00FF0000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00000FF0000FF00007F00007FC0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000}
  end
  object SpeedButton2: TBitBtn [47]
    Left = 745
    Top = 305
    Width = 37
    Height = 39
    TabOrder = 27
    OnClick = SpeedButton2Click
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000FFFFFFFFFFFF
      EEEEEEEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
      EAEAEAEAEAEAEAE4E4E4D0D0D0D0D0D0D2D2D2D6D6D6DCDCDCDFDFDFE4E4E4E8
      E8E8EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAECECECFEFEFEFFFFFFFAFAFA
      446D4938623B38623B38623B38623B38623B38623B38623B38623B38623B3B64
      3F38623B38623B335C372C482F264028243D2526422728462A2B4A2E30533333
      5C3837623B37623B37623B37623B37623B36623A4C614FF8F8F8FFFFFFF7FAF8
      E1F6E3FDFFFCFDFFFDFEFFFDFEFFFEFEFFFEFFFFFFFFFFFFFFFFFFFFFFFFAED8
      B2FFFFFFFFFFFFE8E9E8161316211C1E49A8D15CABD189959C9E9B9DB7B5B7DC
      D9DBFFFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF437748F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7F0F7EF717171635D5B43CDF544D3FF41D2FF32D0FF90807AAE
      B0AEE1E3E1F6F8F6FDFEFDFEFFFEFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1707470F4FFF4F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF7E5EBE5DCE1DB5895AA60E3FF61DEFF61DEFF61DEFF5EDEFF363F4379
      706CA6A7A6C2C3C2D9DAD9F5F6F5FFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1252725F5FFF5F3FFF3ECF8EC636763636763646764B6BCB6AAD7
      AEFAFFF9393A39C0C3C05ACBFA73E4FF75E6FF75E6FF76E6FF6DE3FF09161D34
      2A265D5A5A676767BCBCBCE9EAE9FEFEFDFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1252725F5FFF5F3FFF3EEF9EE828582828582828582C3C9C3AAD7
      AEF7FFF6FDFFFD7D7F7DC9E5EB7EE6FF8BEEFF8BEEFF84E9FF60E0FF44DAFF00
      00034B403D71706F323232DFE0DFF9F9F9FFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF5FFF4252725F8FFF8F3FFF3F3FFF3FAFFFAFAFFFAFBFFFBFBFFFBAAD7
      AEFAFFF98A8E8AFEFFFE6F6F6B79E4FF99F2FF94F1FF79E2FF7FF9FF60EEFF46
      E0FF0D02004A3F3B666565ACACACEBECEBFFFFFF437648F8F8F8FFFFFFF7F9F8
      DAF5DCB2B9B2B1B7B1A7ADA7F8FFF7F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6EAECEA3A3B3AFEFFFEDFE6E2746B6A2A1D1B7DB6B7A6F9FF91F8FF72
      F8FF4CE5FF021922211814726B69BCBDBCEAE5E9417345F7F7F7FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7FAFFFAF8FFF8F7FDF7EFF4EE7873720F090875ACAEA8FBFF92
      F8FF65F2FF4BE2FF042C3A2016139D9D9CC8C4C83D6A40F1F1F1FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7F8FFF8F8FFF8F9FFF9F8FEF8F8FDF8655F60140D0D5A8486AA
      FBFF88F8FF67F3FF4FE5FF083647342926A5A2A5345B38E3E3E3FFFFFFF7F9F8
      91CE969DD2A19DD2A19ED2A19ED2A29ED2A29ED2A29ED2A29FD2A3A0D3A478BE
      7EA0D2A3A0D2A4A0D2A4A0D2A4A1D2A5A1D2A5A1D1A58CBC906E63671B141450
      7677A1F8FF88F8FF6AF5FF4FE5FF07090C333033305233D1D1D1FFFFFFF7F9F8
      E0F5E1FAFFF8FAFFF9FBFFF9FBFFFAFBFFFAFCFFFBFCFFFBFDFFFCFFFFFFAED8
      B1FFFFFDFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEC5C6C449
      4342253839B0FFFF99F8FF74FBFF8380822F2F2F434352B8B8BEFFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F8FFF8FFFFFFF8FFF8FFFFFFFCFFFCFFFFFFFFFFFFFBFFFBFAFDFAE1
      E2E02E27271C2B2CADFFFFF8F6FB7171748283826E65CE8E8CACFFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6B4B7B41E1E1EFFFFFF121212808180111111000000FFFFFFFDFFFD89
      8A89A19E9E8F8D8D837E7E727274DEDEE3BAB4D77F6DDAB4B2C1FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEFFFFFF202120FFFFFF282928FFFFFFFFFFFF2C2D2CFFFFFFFBFFFBFDFFFD8C
      8C8CAAAAAAD8D8D8C8C8C8888A84D1C7E59479D2856ACBEAEAEAFFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEFFFFFF2A2B2AFBFFFB0D0E0DFEFFFE949694FFFFFF121211FFFFFFD9DAD88D
      8D8D929393B7B8B7868686B1A3CC937CB5CCBCDD427645F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF8FFF77C7E7C90908FCDCECCF9FFF9ECEFEC3536353B3B3BFEFFFED3D5D38B
      8B8BFFFFFF383838696969D7D7D6FFFFFFFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F8FFF8FEFFFEF8FFF8F9FFF9F9FFF9FFFFFFFEFFFEFBFFFBFCFFFCFE
      FFFEFDFFFDFFFFFFFFFFFFFEFFFEFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7F8FFF8F8FFF8F9FFF9FAFFF9FAFFFAFBFFFBFBFFFBFCFFFCFC
      FFFCFDFFFDFDFFFDFEFFFEFEFFFEFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      5DB36560B26760B26860B26860B26860B26860B26860B26861B26862B26854AC
      5C61B26860B26861B26861B26861B26861B26861B26860B26860B26860B26960
      B26961B26861B26861B26961B26961B26962B36A47794BF8F8F8FFFFFFF7F9F8
      E0F5E2FBFFFAFBFFFBFCFFFBFCFFFCFCFFFCFDFFFDFDFFFDFEFFFEFFFFFFAED8
      B1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF437748F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7F8FFF8F8FFF8F9FFF9FAFFF9FBFFFBFBFFFBFBFFFBFCFFFCFC
      FFFCFDFFFDFDFFFDFFFFFFFEFFFEFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEFAFFFA7F827F6E716E8285827C7F7CFFFFFF696B69EBEBEBFBFFFBFFFFFF83
      8583FEFFFEADAEAE6B6B6BFFFFFFFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6FFFFFF1B1C1AFDFFFDFBFFFBECEFECFFFFFF5E605E5050506C6C6C04
      0404C1C1C1D7D7D7FFFFFF585958FFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6E6ECE6FFFFFFAFB2AFF9FFF9B8BBB8323332525352FFFFFF30303010
      1010A3A3A34647461C1C1CEFEFEFFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEFAFFF9292929EBF0EB818381F9FFF9F2F4F29C9E9CD7D9D7FCFFFCE8E8E800
      0000FBFCFB8B8B8BF9F9F9989898FFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6FCFFFCB3B7B3FDFFFDF9FFF9FAFFFAC7CAC7C9CCC9FDFFFDFDFFFDCD
      CECDFDFFFDD9DAD9ABABABFFFFFFFFFFFEFFFFFF437648F8F8F8FFFFFFF7F9F8
      D9F3DAF2FFF1F2FFF2F3FFF2F3FFF3F3FFF3F4FFF4F4FFF4F5FFF5F8FFF7AAD7
      AEF7FFF6F7FFF7F8FFF8F8FFF8F9FFF9FAFFF9FAFFFAFBFFFBFBFFFBFCFFFCFC
      FFFCFDFFFDFDFFFDFEFFFEFEFFFEFFFFFEFFFFFF427647F8F8F8FFFFFFF7FAF8
      8FD1959AD59F9AD59F9BD59F9BD5A09BD5A09BD5A09BD5A09CD5A19DD6A277C2
      7E9DD5A19DD5A29DD5A29DD5A29ED5A39ED5A39ED5A39FD5A49FD5A49FD5A49F
      D5A4A0D5A4A0D5A4A0D5A5A0D5A5A0D5A5A4D7A969936DFDFDFDFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object DBEdit13: TDBEdit [48]
    Left = 113
    Top = 451
    Width = 271
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = clInfoBk
    DataField = 'DATASISTEMA'
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 28
    OnKeyPress = FormKeyPress
  end
  object DBEdit14: TDBEdit [49]
    Left = 447
    Top = 451
    Width = 296
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = clInfoBk
    DataField = 'NOMEUSUARIO'
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 29
    OnKeyPress = FormKeyPress
  end
  inherited PopupMenu1: TPopupMenu
    object BuscarFornecedor1: TMenuItem [0]
      Caption = 'Buscar Fornecedor'
      ShortCut = 117
      OnClick = BitBtn1Click
    end
    inherited Procurar1: TMenuItem
      OnClick = btnProcurarClick
    end
    object BuscarConta1: TMenuItem [2]
      Caption = 'Buscar Conta'
      ShortCut = 116
      OnClick = BitBtn12Click
    end
    inherited Incuir1: TMenuItem
      Caption = 'Incluir'
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_cr
  end
  object d_3_caixa_banco: TDataSource
    DataSet = DM.cds_7_contas
    OnStateChange = DtSrcStateChange
    Left = 520
    Top = 8
  end
  object ds_rateio: TDataSource
    DataSet = DM.cds_ccusto
    OnStateChange = DtSrcStateChange
    Left = 496
    Top = 8
  end
  object ds_contas: TDataSource
    DataSet = DM.cds_1_contas
    OnStateChange = DtSrcStateChange
    Left = 464
    Top = 8
  end
  object sds_cr: TSQLDataSet
    CommandText = 
      'select rec.*, (CASE WHEN (REC.VALORRECEBIDO > 0) THEN (REC.VALOR' +
      'RECEBIDO - rec.VALOR_RESTO)'#13#10'  WHEN (REC.VALORRECEBIDO = 0) THEN' +
      ' rec.VALOR_RESTO END)'#13#10' as VALORREC from RECEBIMENTO rec'#13#10'where ' +
      'rec.TITULO = :pCODREC'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pCODREC'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 81
    Top = 383
    object sds_crCODRECEBIMENTO: TIntegerField
      FieldName = 'CODRECEBIMENTO'
      Required = True
    end
    object sds_crTITULO: TStringField
      FieldName = 'TITULO'
      Required = True
      Size = 18
    end
    object sds_crEMISSAO: TDateField
      FieldName = 'EMISSAO'
    end
    object sds_crCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object sds_crDATAVENCIMENTO: TDateField
      FieldName = 'DATAVENCIMENTO'
    end
    object sds_crDATARECEBIMENTO: TDateField
      FieldName = 'DATARECEBIMENTO'
    end
    object sds_crCAIXA: TSmallintField
      FieldName = 'CAIXA'
    end
    object sds_crCONTADEBITO: TIntegerField
      FieldName = 'CONTADEBITO'
    end
    object sds_crCONTACREDITO: TIntegerField
      FieldName = 'CONTACREDITO'
    end
    object sds_crSTATUS: TStringField
      FieldName = 'STATUS'
      Required = True
      FixedChar = True
      Size = 2
    end
    object sds_crVIA: TStringField
      FieldName = 'VIA'
      Required = True
      FixedChar = True
      Size = 4
    end
    object sds_crFORMARECEBIMENTO: TStringField
      FieldName = 'FORMARECEBIMENTO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object sds_crDATABAIXA: TDateField
      FieldName = 'DATABAIXA'
    end
    object sds_crHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 150
    end
    object sds_crCODVENDA: TIntegerField
      FieldName = 'CODVENDA'
    end
    object sds_crCODALMOXARIFADO: TSmallintField
      FieldName = 'CODALMOXARIFADO'
    end
    object sds_crCODVENDEDOR: TSmallintField
      FieldName = 'CODVENDEDOR'
    end
    object sds_crCODUSUARIO: TSmallintField
      FieldName = 'CODUSUARIO'
    end
    object sds_crN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
    end
    object sds_crDATASISTEMA: TSQLTimeStampField
      FieldName = 'DATASISTEMA'
    end
    object sds_crVALORRECEBIDO: TFloatField
      FieldName = 'VALORRECEBIDO'
    end
    object sds_crJUROS: TFloatField
      FieldName = 'JUROS'
    end
    object sds_crDESCONTO: TFloatField
      FieldName = 'DESCONTO'
    end
    object sds_crPERDA: TFloatField
      FieldName = 'PERDA'
    end
    object sds_crTROCA: TFloatField
      FieldName = 'TROCA'
    end
    object sds_crFUNRURAL: TFloatField
      FieldName = 'FUNRURAL'
    end
    object sds_crVALOR_PRIM_VIA: TFloatField
      FieldName = 'VALOR_PRIM_VIA'
    end
    object sds_crVALOR_RESTO: TFloatField
      FieldName = 'VALOR_RESTO'
    end
    object sds_crVALORTITULO: TFloatField
      FieldName = 'VALORTITULO'
    end
    object sds_crOUTRO_CREDITO: TFloatField
      FieldName = 'OUTRO_CREDITO'
    end
    object sds_crOUTRO_DEBITO: TFloatField
      FieldName = 'OUTRO_DEBITO'
    end
    object sds_crPARCELAS: TIntegerField
      FieldName = 'PARCELAS'
    end
    object sds_crDUP_REC_NF: TStringField
      FieldName = 'DUP_REC_NF'
      Size = 15
    end
    object sds_crNF: TIntegerField
      FieldName = 'NF'
    end
    object sds_crDP: TIntegerField
      FieldName = 'DP'
    end
    object sds_crBL: TIntegerField
      FieldName = 'BL'
    end
    object sds_crVALORREC: TFloatField
      FieldName = 'VALORREC'
      ProviderFlags = []
      ReadOnly = True
    end
  end
  object dsp_cr: TDataSetProvider
    DataSet = sds_cr
    UpdateMode = upWhereKeyOnly
    Left = 113
    Top = 383
  end
  object cds_cr: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pCODREC'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_cr'
    Left = 144
    Top = 383
    object cds_crCODRECEBIMENTO: TIntegerField
      FieldName = 'CODRECEBIMENTO'
      Required = True
    end
    object cds_crTITULO: TStringField
      FieldName = 'TITULO'
      Required = True
      Size = 18
    end
    object cds_crEMISSAO: TDateField
      FieldName = 'EMISSAO'
    end
    object cds_crCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object cds_crDATAVENCIMENTO: TDateField
      FieldName = 'DATAVENCIMENTO'
      EditMask = '!99/99/00;1;_'
    end
    object cds_crDATARECEBIMENTO: TDateField
      FieldName = 'DATARECEBIMENTO'
      EditMask = '!99/99/00;1;_'
    end
    object cds_crCAIXA: TSmallintField
      FieldName = 'CAIXA'
    end
    object cds_crCONTADEBITO: TIntegerField
      FieldName = 'CONTADEBITO'
    end
    object cds_crCONTACREDITO: TIntegerField
      FieldName = 'CONTACREDITO'
    end
    object cds_crSTATUS: TStringField
      FieldName = 'STATUS'
      Required = True
      OnGetText = cds_crSTATUSGetText
      FixedChar = True
      Size = 2
    end
    object cds_crVIA: TStringField
      FieldName = 'VIA'
      Required = True
      FixedChar = True
      Size = 4
    end
    object cds_crFORMARECEBIMENTO: TStringField
      FieldName = 'FORMARECEBIMENTO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cds_crDATABAIXA: TDateField
      FieldName = 'DATABAIXA'
      EditMask = '!99/99/00;1;_'
    end
    object cds_crHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 150
    end
    object cds_crCODVENDA: TIntegerField
      FieldName = 'CODVENDA'
    end
    object cds_crCODALMOXARIFADO: TSmallintField
      FieldName = 'CODALMOXARIFADO'
    end
    object cds_crCODVENDEDOR: TSmallintField
      FieldName = 'CODVENDEDOR'
    end
    object cds_crCODUSUARIO: TSmallintField
      FieldName = 'CODUSUARIO'
    end
    object cds_crN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
    end
    object cds_crDATASISTEMA: TSQLTimeStampField
      FieldName = 'DATASISTEMA'
    end
    object cds_crVALORRECEBIDO: TFloatField
      FieldName = 'VALORRECEBIDO'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crJUROS: TFloatField
      FieldName = 'JUROS'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crDESCONTO: TFloatField
      FieldName = 'DESCONTO'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crPERDA: TFloatField
      FieldName = 'PERDA'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crTROCA: TFloatField
      FieldName = 'TROCA'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crFUNRURAL: TFloatField
      FieldName = 'FUNRURAL'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crVALOR_PRIM_VIA: TFloatField
      FieldName = 'VALOR_PRIM_VIA'
      DisplayFormat = ',#0.00'
      EditFormat = ',##0.00'
    end
    object cds_crVALOR_RESTO: TFloatField
      FieldName = 'VALOR_RESTO'
      DisplayFormat = ',#0.00'
      EditFormat = ',##0.00'
    end
    object cds_crVALORTITULO: TFloatField
      FieldName = 'VALORTITULO'
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
    object cds_crOUTRO_CREDITO: TFloatField
      FieldName = 'OUTRO_CREDITO'
      DisplayFormat = ',#0.00'
      EditFormat = ',##0.00'
    end
    object cds_crOUTRO_DEBITO: TFloatField
      FieldName = 'OUTRO_DEBITO'
      DisplayFormat = ',#0.00'
      EditFormat = ',##0.00'
    end
    object cds_crPARCELAS: TIntegerField
      FieldName = 'PARCELAS'
    end
    object cds_crDUP_REC_NF: TStringField
      FieldName = 'DUP_REC_NF'
      Size = 15
    end
    object cds_crNF: TIntegerField
      FieldName = 'NF'
    end
    object cds_crDP: TIntegerField
      FieldName = 'DP'
    end
    object cds_crBL: TIntegerField
      FieldName = 'BL'
    end
    object cds_crVALORREC: TFloatField
      FieldName = 'VALORREC'
      ReadOnly = True
      DisplayFormat = ',##0.00'
      EditFormat = ',##0.00'
    end
  end
  object DataSource1: TDataSource
    DataSet = cds_cr
    Left = 177
    Top = 383
  end
  object sds: TSQLDataSet
    CommandText = 'select CODIGO, CODREDUZIDO, NOME from PLANO where CODIGO = :PCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 240
    Top = 384
    object sdsCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object sdsCODREDUZIDO: TStringField
      FieldName = 'CODREDUZIDO'
      Size = 30
    end
    object sdsNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 200
    end
  end
  object sdsCli: TSQLDataSet
    CommandText = 
      'select cli.CODCLIENTE, '#13#10'          cli.CODUSUARIO,'#13#10'          cl' +
      'i.NOMECLIENTE, '#13#10'          cli.RAZAOSOCIAL, '#13#10'          cli.CODB' +
      'ANCO, '#13#10'          cli.PRAZORECEBIMENTO, '#13#10'          cli.OBS,  '#13#10 +
      '          cli.SEGMENTO, '#13#10'          cli.STATUS, '#13#10'          usu.' +
      'NOMEUSUARIO, ende.UF  '#13#10'from CLIENTES cli '#13#10'left outer join USUA' +
      'RIO usu '#13#10'on usu.CODUSUARIO=cli.CODUSUARIO '#13#10'left outer join END' +
      'ERECOCLIENTE ende on ende.CODCLIENTE = cli.CODCLIENTE '#13#10'where cl' +
      'i.RA = :pRA'#13#10'order by cli.NOMECLIENTE'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pRA'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 168
    Top = 272
    object sdsCliCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object sdsCliNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object sdsCliRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object sdsCliCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object sdsCliPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object sdsCliOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object sdsCliSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object sdsCliSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object sdsCliNOMEUSUARIO: TStringField
      FieldName = 'NOMEUSUARIO'
      Size = 30
    end
    object sdsCliUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sdsCliCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
  end
  object Hist_DataSetReceita: TUCHist_DataSet
    DataSet = cds_cr
    ControlHistorico = HistoricoReceita
    Left = 648
    Top = 474
  end
  object HistoricoReceita: TUCControlHistorico
    UserControl = fFinanceiro.UserControlFinanceiro
    Options.SaveNewRecord = True
    Options.SaveDelete = True
    Options.SavePostInsert = True
    Options.SavePostEdit = True
    Options.TypeSavePostEdit = tpSaveAllFields
    TableHistory.TableName = 'UCTABHistory'
    TableHistory.FieldApplicationID = 'ApplicationID'
    TableHistory.FieldUserID = 'UserID'
    TableHistory.FieldEventDate = 'EventDate'
    TableHistory.FieldEventTime = 'EventTime'
    TableHistory.FieldForm = 'Form'
    TableHistory.FieldCaptionForm = 'FormCaption'
    TableHistory.FieldEvent = 'Event'
    TableHistory.FieldObs = 'Obs'
    TableHistory.FieldTableName = 'tName'
    HistoryMsg.Evento_Insert = 'Inserido'
    HistoryMsg.Evento_Delete = 'Apagado'
    HistoryMsg.Evento_Edit = 'Editado'
    HistoryMsg.Evento_NewRecord = 'Novo registro'
    HistoryMsg.Hist_All = 'Todos'
    HistoryMsg.Msg_LimpHistorico = 'Excluir todo o conte'#250'do do hist'#243'rico ?'
    HistoryMsg.Msg_MensConfirma = 'Confirma'#231#227'o'
    HistoryMsg.Msg_LogEmptyHistory = 'Usu'#225'rio %s apagou todo o hist'#243'rico as %s'
    HistoryMsg.LabelDescricao = 'Hist'#243'rico de tabelas'
    HistoryMsg.LabelUser = 'Usu'#225'rio'
    HistoryMsg.LabelForm = 'Formul'#225'rio'
    HistoryMsg.LabelEvento = 'Evento'
    HistoryMsg.LabelTabela = 'Tabela'
    HistoryMsg.LabelDataEvento = 'Data'
    HistoryMsg.LabelHoraEvento = 'Hora'
    HistoryMsg.Msg_NewRecord = '%s inseriu um novo registro'
    HistoryMsg.Hist_MsgExceptPropr = 'Favor informar a propriedade %s'
    HistoryMsg.Hist_BtnFiltro = '&Aplicar Filtro'
    HistoryMsg.Hist_BtnExcluir = '&Excluir Hist'#243'rico'
    HistoryMsg.Hist_BtnFechar = '&Fechar'
    Left = 680
    Top = 474
  end
end
